
 1000  *SAVE S.DAY OF WEEK
 1001         .OR $300
 1010  *--------------------------------
 1020  YEAR   .BS 1        84-99 MEANS 1984-1999; 0-83 MEANS 2000-2083
 1030  MONTH  .BS 1        1...12 FOR JAN...DEC
 1040  DAY    .BS 1        1...31
 1050  W      .BS 1
 1060  *--------------------------------
 1070  DOW
 1080         LDA YEAR     NORMALIZE YEAR TO 1984
 1090         SEC          SO IT RUNS 1...99
 1100         SBC #84      (MAR 1, 1984 THROUGH DEC 31, 2083)
 1110         BCS .1       WAS 1984-1999
 1120         ADC #100     WAS 2000-2083
 1130  .1     STA W
 1140  *--------------------------------
 1150         LDA MONTH    ADJUST MONTH SO FEBRUARY IS END OF YEAR
 1160         SEC
 1170         SBC #3
 1180         BCS .2
 1190         DEC W
 1200         ADC #12
 1210  .2     TAX
 1220  *--------------------------------
 1230         LDA W        YEAR
 1240         LSR
 1250         LSR
 1260         CLC          + INT (YEAR/4)
 1270         ADC W
 1280         ADC MD,X     + MD(ADJ.MONTH)
 1290         ADC DAY      + DAY
 1300  *--------------------------------
 1310         SEC
 1320  .3     SBC #7       MOD 7
 1330         BCS .3
 1340         ADC #7
 1350         STA W
 1360         RTS
 1370  *--------------------------------
 1380  MD     .DA #3,#6,#1,#4,#6,#2,#5,#0,#3,#5,#1,#4
 1390  *--------------------------------

